Program nome ;
var
m1:array[1..5,1..5] of integer;
i,j:integer;
m2:string;
 
 
 Begin
 textcolor(yellow);
 
   for i:=1 to 5 do
   	for j:= 1 to 5 do
 		if i=j then m1[i,j]:=1;

     for i:=1 to 5 do
     	m1[i,6-i]:=1;



     for i:=1 to 5 do  
     begin
	   writeln;
	   writeln;
	   for j:=1 to 5 do
   	   	write(m1[i,j],'   ')
   	end;               
 
   	
 End.